home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 351-375 / 374 / mat / filecount < prev    next >
Text File  |  1995-03-14  |  375b  |  15 lines
  1. .K PAT,OF,OF1,OF2,OF3,OF4
  2. .BRA {
  3. .KET }
  4. ;;    FILECOUNT --  Counts files with names matching a given pattern.
  5.  
  6. if "{OF}" EQ ""
  7.    MAT FILES "" {PAT$#?} LABEL "^N files found"
  8. else
  9.    MAT {PAT} T "" FILES {OF$#?} {OF1} {OF2} {OF3} {OF4} LABEL "^I files found out of ^N"
  10. endif
  11.  
  12. ;; note the use of a null template to circumvent the normal requirement
  13. ;; for one in FILES mode.
  14.  
  15.